10 DV=PEEK(186)
20 POKE53281,0:POKE53280,0:POKE53371,0
22 SYS57812"INSTR 828",DV,0:POKE780,0:POKE781,60:POKE782,3:SYS65493
30 PRINT"[147][129]     [203][206][197][197][211] [195][193][204][200][207][207][206]'[211] [194][207][207][203][208][210][201][206][212] 1999[159]"
34 IN=828:DV=PEEK(186)
40 M$(1)="[212][201][212][204][197]
50 M$(2)[178]"ATN(null)(null)LEFT$(null)(null)
60 M$(3)="[196][193][212][197]
70 W[178]1:W$[178][196](W)
80 P$[178]".................................."
90 S$[178]"       "
100 :
110 :[143] MENU
120 :
130 [129]I[178]1[164]3:[153][163]3)""I"CONT"M$(I):[153]:[130]
140 [161]A$
150 [139]A$[179]"1"[176]A$[177]"3"[167]140
160 M[178][197](A$)
170 [151]214,M[172]2[170]3:[153]"":[153][163]13)": ";
180 L9%[178]20:[141]50000:H$[178]Q9$
192 [151]214,14:[153]:[153][163]5)"OPEN(null)EARCHED:"[163]23)"OPEN(null)ATCHES:"
200 [159]4,4,7
207 :
208 :[143] LOOP
209 :
210 [159]2,DV,2,"BOOKS 1999"[170]",P,R"
220 [132]2,T$(1):[139]ST[167]400
240 [139][200](T$(1),1)[178]"*"[167]Y$[178][201](T$(1),2):[137]220
244 T$(2)[178]"":[132]2,T$(2):T$(3)[178]"":[132]2,T$(3):T$(3)[178]Y$[170]"-"[170]T$(3)
250 [158]IN,H$,T$(M)
260 [139][194](251)[167][141]300
270 W[178]W[170]1:W$[178][196](W)
280 [151]214,15:[151]211,14:[158]58732:[153]W[163]31)NM
290 [137]220
297 :
298 :[143] PRINT LINE
299 :
300 [139][195](T$(1))[177]36[167]T$(1)[178][200](T$(1),36)
302 [139][195](T$(2))[177]26[167]T$(2)[178][200](T$(2),26)
306 [152]4,W$"."[200](S$,6[171][195](W$))T$(1);
308 [152]4,[200](P$,37[171][195](T$(1)))T$(2);
310 [152]4,[200](P$,27[171][195](T$(2)))[202](T$(3),4);"-";[200](T$(3),2)
320 NM[178]NM[170]1
330 [142]
397 :
398 :[143] NEW FILE
399 :
400 [160]2
410 [139]NM[167][152]4,[199](13)
420 [160]4:[151]186,DV
430 [151]214,20:[153]:[153]"        1CONT - (null)ORE      2CONT - (null)UIT"
440 [161]A$:[139]A$[179]"1"[176]A$[177]"2"[167]440
450 [139]A$[178]"1"[167][138]30
460 [137]40000
10000 D[178][194](186):N$[178]"0:B.BOOK PRINT":[159]15,D,15,"S"[170]N$:[160]15:[148]N$,D:[128]
40000 [129]I[178]8[164]29:[151]820[170]I,I:[130]:[139]DV[177]8[175]DV[179]30[167][151]828,DV:[151]820[170]DV,8
40010 A$[178]"PRESENTER":[141]40030:A$[178]"HELLO CONNECT":[141]40030
40020 [153]"LOAD":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
40030 [129]J[178]8[164]29:I[178][194](820[170]J):[139]I[178]14[167][130]
40040 [160]2:[159]2,I,2:[160]2:[139]ST[167]40060
40050 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40070
40060 [130]:[142]
40070 A$[178]"HELLO CONNECT":Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
40080 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
40090 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128]
50000 Q9$[178]"":U9[178]53280:[151]198,0
50010 [161]A$
50020 [151]646,[187](1)[172]15[170]1:[153]"TOCMD";:[139]A$[178]""[167]50010
50030 [139]A$[178][199](13)[167][153]" ":[142]
50040 [139](A$[178][199](20)[175][195](Q9$))[167]Q9$[178][200](Q9$,[195](Q9$)[171]1):[137]50080
50050 [139][195](Q9$)[177][178]L9%[167]T9%[178][194](U9):[151]U9,1:[151]U9,T9%:[137]50010
50060 [139]A$[179]" "[176](A$[177][199](127)[175]A$[179][199](160))[176]A$[178][199](34)[167]50010
50070 Q9$[178]Q9$[170]A$
50080 [153]"LIST"A$;:[137]50010